Looping through hashes in Perl gives odd result - example script provided